home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / DAS-NBV2.INC < prev    next >
Text File  |  1996-03-11  |  4KB  |  49 lines

  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NBV2.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6.   TYPE ColRowTYPE
  7.     X1 AS INTEGER
  8.     Y1 AS INTEGER
  9.     X2 AS INTEGER
  10.     Y2 AS INTEGER
  11.   END TYPE
  12. '────────────────────────────────────────────────────────────────────────────
  13. '════════════════════════════════════════════════════════════════════════════
  14. DECLARE      SUB  Arrows            (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL Colour?,BYVAL UDLR?,BYVAL Size?,BYVAL HowMany?)
  15. DECLARE      SUB  ArrowsA           (SEG XY%,BYVAL Clr?,BYVAL UDLR?,BYVAL Size?,BYVAL HowMany?)
  16. DECLARE      SUB  ClearGBoxCLOCK    (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  17. DECLARE      SUB  ClearGBoxDDN      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  18. DECLARE      SUB  ClearGBoxDIO      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  19. DECLARE      SUB  ClearGBoxDN       (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  20. DECLARE      SUB  ClearGBoxDOI      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  21. DECLARE      SUB  ClearGBoxDUP      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  22. DECLARE      SUB  ClearGBoxLF       (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  23. DECLARE      SUB  ClearGBoxRND      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,Noise%)
  24. DECLARE      SUB  ClearGBoxRT       (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  25. DECLARE      SUB  ClearGBoxSWEEP    (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  26. DECLARE      SUB  ClearGBoxUP       (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  27. DECLARE      SUB  ClearGBoxVBH      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  28. DECLARE      SUB  ClearGBoxVBV      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  29. DECLARE      SUB  ClearGBoxZIO      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  30. DECLARE      SUB  ClearGBoxZOI      (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Colour?,BYVAL Noise%)
  31. DECLARE FUNCTION fColorMask$        (SEG M$,BYVAL ForeGrnd?,BYVAL BackGrnd?)
  32. DECLARE      SUB  GBoxBevel         (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL Depth?,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  33. DECLARE      SUB  GBoxBevelA        (SEG XY%,BYVAL Depth?,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  34. DECLARE      SUB  GBoxEtch          (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  35. DECLARE      SUB  GBoxEtchA         (SEG XY%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  36. DECLARE      SUB  GBoxEvent         (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  37. DECLARE      SUB  GBoxEventA        (SEG XY%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?)
  38. DECLARE      SUB  GBoxFFrame        (BYVAL X1%,BYVAL Y1%,BYVAL Xx%,BYVAL Y2%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Hcol!,BYVAL Hrow!)
  39. DECLARE      SUB  GBoxFframeA       (SEG XY%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Hcol!,BYVAL Hrow!)
  40. DECLARE      SUB  GBoxGrid          (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL Mask%,BYVAL Colour?,BYVAL Wide%,BYVAL High%)
  41. DECLARE      SUB  GBoxGridA         (SEG XY%,BYVAL Mask%,BYVAL Colour?,BYVAL Wide%,BYVAL High%)
  42. DECLARE      SUB  GBoxRFrame        (BYVAL X1%,BYVAL Y1%,BYVAL Xx%,BYVAL Y2%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Hcol!,BYVAL Hrow!)
  43. DECLARE      SUB  GBoxRframeA       (SEG XY%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Hcol!,BYVAL Hrow!)
  44. DECLARE      SUB  GBoxTiles         (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Wide%,BYVAL High%)
  45. DECLARE      SUB  GBoxTilesA        (SEG XY%,BYVAL BXa?,BYVAL TLa?,BYVAL BRa?,BYVAL Wide%,BYVAL High%)
  46. DECLARE FUNCTION fMonoMask$         (BYVAL Which%)
  47. DECLARE      SUB  SelectCircle      (BYVAL X1%,BYVAL Y1%,BYVAL Colour?,BYVAL Selected?)
  48. '════════════════════════════════════════════════════════════════════════════
  49.